home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act8 / 00283.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  640 b   |  27 lines
  1. on hilist
  2.   global donelist, mainlist, hylist, lowlist
  3.   repeat with xxx = 1 to 10
  4.     if xxx <= count(donelist) then
  5.       set thing to getAt(hylist, getAt(mainlist, xxx))
  6.     else
  7.       set thing to getAt(lowlist, getAt(mainlist, xxx))
  8.     end if
  9.     set the castNum of sprite (36 + xxx) to thing
  10.   end repeat
  11.   updateStage()
  12. end
  13.  
  14. on nextnumber
  15.   global donelist
  16.   set ptime to the timer
  17.   set spritenum to 36 + count(donelist) + 1
  18.   repeat while the timer < (ptime + 45)
  19.     set the ink of sprite spritenum to 4
  20.     updateStage()
  21.     mydelay(5)
  22.     set the ink of sprite spritenum to 36
  23.     updateStage()
  24.     mydelay(5)
  25.   end repeat
  26. end
  27.